home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / f2c / may_5_92.lha / f2c.VMay_5_1992 / libF77 / getarg_.c < prev    next >
C/C++ Source or Header  |  1992-05-07  |  411b  |  28 lines
  1. #include "f2c.h"
  2.  
  3. /*
  4.  * subroutine getarg(k, c)
  5.  * returns the kth unix command argument in fortran character
  6.  * variable argument c
  7. */
  8.  
  9. VOID getarg_(n, s, ls)
  10. ftnint *n;
  11. register char *s;
  12. ftnlen ls;
  13. {
  14. extern int xargc;
  15. extern char **xargv;
  16. register char *t;
  17. register int i;
  18.  
  19. if(*n>=0 && *n<xargc)
  20.     t = xargv[*n];
  21. else
  22.     t = "";
  23. for(i = 0; i<ls && *t!='\0' ; ++i)
  24.     *s++ = *t++;
  25. for( ; i<ls ; ++i)
  26.     *s++ = ' ';
  27. }
  28.